euler_009 = head [ x | a <- [1..1000], b <- [a..1000], let c = 1000 - a - b, c > 0,  a*a + b*b == c*c, let x = a*b*c]
